home *** CD-ROM | disk | FTP | other *** search
/ Mac-Source 1994 July / Mac-Source_July_1994.iso / Other Langs / MacPerl ƒ / Perl Source ƒ / Perl / Specialize < prev    next >
Text File  |  1993-10-23  |  247b  |  20 lines
  1. Perl -S -x "{0}" "{Active}.§">"{TempFolder}Specialize"
  2. Catenate "{TempFolder}Specialize" > "{Active}.§"
  3. Exit
  4. #!perl
  5.  
  6. print "#ifdef macintosh\n";
  7.  
  8. while (<>) {
  9.     $text .= $_;
  10.     
  11.     s/stderr/perldbg/;
  12.     
  13.     print;
  14. }
  15.  
  16. print <<_END_;
  17. #else
  18. $text#endif
  19. _END_
  20.